home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / thumna1a / thumb_pr.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-10-07  |  2.4 KB  |  57 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    BackColor       =   &H00808080&
  4.    Caption         =   "Thum ANI."
  5.    ClientHeight    =   1965
  6.    ClientLeft      =   60
  7.    ClientTop       =   345
  8.    ClientWidth     =   1890
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   131
  11.    ScaleMode       =   3  'Pixel
  12.    ScaleWidth      =   126
  13.    StartUpPosition =   3  'Windows Default
  14. Attribute VB_Name = "Form1"
  15. Attribute VB_GlobalNameSpace = False
  16. Attribute VB_Creatable = False
  17. Attribute VB_PredeclaredId = True
  18. Attribute VB_Exposed = False
  19. '// Thumb Player thingy [Dont know a technical Description to give it]
  20. '// This just simply program that i need fixed cause it seems to have a problem with
  21. '// running only one time when in autorepeat mode and it will no longer work
  22. '// When It recives a Another Roll_film Activation. Needs some serious revision.
  23. '// Pretty handy hey and look no ocxs :)
  24. '// All OCX 'S and No Code = some one elses Program!
  25. '// For instance did you know your form already has scroll bars
  26. '// Did you know your form is also a TextBox & ListBox &cOmbobox
  27. '// Hehe and Cheakout the Project_To Value
  28. '// ill will Spice up the code a bit when i have some time.
  29. '// If you wish to employ me contact [Familea@Familea.Screaming.net]
  30. '// Thumb - Nail hehe what a name good one MS .....Doult
  31. Private thb1 As New Class1
  32. Private Sub Form_Click()
  33. thb1.Roll_Tape 0, 0
  34. End Sub
  35. Private Sub Form_Load()
  36. Set thb1.Ownerform = Form1
  37. thb1.Lens_Shape = Custom_
  38. thb1.Pos_Top = 1
  39. thb1.Pos_Height = 140
  40. thb1.Pos_Left = 1
  41. thb1.Pos_Width = Form1.ScaleWidth
  42. thb1.Thum_Height = 60                   'The Actual Size of your Thumbnials,play with these when you use your own
  43. thb1.Thum_Width = 60                    'The Actual Size of your thumbnails,play with these when you use your own
  44. thb1.Pic_ADD App.Path + "\" + "Tamc.gif"
  45. thb1.Scrolling = Horizontal
  46. thb1.ThumCount = 12
  47. thb1.ProjectTo = 0              'HDC for secondary projection otherwise it just projects to the Desktop
  48.                                 'See ProjectOn Value if you dont want to use this.
  49.                                 
  50. thb1.ProjectOn = True
  51. thb1.AutoRepeat = True          'This is not working properly but it works once for some reason.
  52. thb1.Init_ImageData             'Load the Thumbnails that will be used
  53. End Sub
  54. Private Sub Form_Unload(Cancel As Integer)
  55. thb1.Unload_VCR
  56. End Sub
  57.